home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / FindWrongChars.AMOS / FindWrongChars.amosSourceCode
Encoding:
AMOS Source Code  |  1999-05-15  |  283 b   |  12 lines
  1. Set Input 10,-1
  2. Open In 1,"dh1:assembler/deli/mixingroutines.lnk"
  3.   While Not Eof(1)
  4.     Inc LINE
  5.     Line Input #1,T$
  6.     T$=T$-"�"-"�"-"�"-"�"
  7.     For A=0 To Len(T$)-1
  8.       Exit If Peek(Varptr(T$)+A)>128
  9.     Next 
  10.     If A<Len(T$) Then Print T$ : Wait Key 
  11.   Wend 
  12. Close 1